home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / Intuition / Window.st < prev   
Text File  |  2000-05-07  |  6KB  |  210 lines
  1. "--------------------------------------------------"
  2. " Window Class implements control of Amiga Windows."
  3. "--------------------------------------------------"
  4.  
  5. Class Window :Glyph
  6. ! 
  7.   leftEdge   topEdge width  height detailPen   blockPen    flags
  8.   iDCMPFlags title   mouseX mouseY screenTitle windowTitle
  9.  
  10.   reqCount ptrWidth  ptrHeight xOffset   yOffset bitMap 
  11.   minWidth minHeight maxWidth  maxHeight chkMark
  12. !
  13. [
  14.    close
  15.       <primitive 181 0 windowTitle>.
  16.       windowTitle <- nil
  17. |
  18.    setPointer: spritePtr size: sizePt offset: offPt ! w h x y !
  19.       w <- sizePt x.
  20.       h <- sizePt y.
  21.       x <- offPt  x.
  22.       y <- offPt  y.
  23.       <primitive 181 8 spritePtr h w x y windowTitle>
  24. |
  25.    addGadget: gadgetName type: gadgetType
  26.       "gadgetType: 0 = Boolean, 1 = String & 2 = Porportional:"
  27.       <primitive 181 9 gadgetName gadgetType windowTitle>
  28. |
  29.    setFirstGadget: newGadget
  30.       <primitive 181 3 12 newGadget windowTitle>
  31. |
  32.    refreshGadgets
  33.       <primitive 181 4 'RefreshGadgets' windowTitle>
  34. |
  35.    removeGadget: gadgetName type: gadgetType
  36.       <primitive 181 10 gadgetName gadgetType windowTitle>
  37. |
  38.    reportMouse: boolvalue
  39.       <primitive 181 11 boolvalue windowTitle>
  40. |
  41.    getMouseCoords
  42.       mouseX <- <primitive 181 2 8 windowTitle>.
  43.       mouseY <- <primitive 181 2 9 windowTitle>.
  44.       ^ mouseX @ mouseY
  45. |
  46.    printIText: iTextName at: aPoint
  47.       <primitive 181 14 iTextName (aPoint x) (aPoint y) windowTitle>
  48. |
  49.    reOpenWindow
  50.       <primitive 181 15 windowTitle>      
  51. |
  52.    handleIntuition
  53.       ^ <primitive 181 16 windowTitle>
  54. |
  55.    addDMRequest: dMRequesterName
  56.       <primitive 181 5 'AddDMRequest' dMRequesterName windowTitle>
  57. |
  58.    removeDMRequest
  59.       <primitive 181 4 'RemoveDMRequest' windowTitle>
  60. |
  61.    windowToBack
  62.       <primitive 181 4 'WindowToBack' windowTitle>
  63. |
  64.    windowToFront
  65.       <primitive 181 4 'WindowToFront' windowTitle>
  66. |
  67.    showRequester: requesterName
  68.       <primitive 181 5 'ShowRequester' requesterName windowTitle>
  69. |
  70.    addMenuStrip: menuName
  71.       <primitive 181 5 'AddMenuStrip' menuName windowTitle>
  72. |
  73.    removeMenuStrip
  74.       <primitive 181 4 'RemoveMenuStrip' windowTitle>
  75. |
  76.    moveWindow: deltaPt
  77.       <primitive 181 6 'MoveWindow' (deltaPt x) (deltaPt y) windowTitle>
  78. |
  79.    infoReq: msg title: t
  80.       <primitive 181 13 msg t 'OKAY'>
  81. |
  82.    yesNoReq: msg title: t
  83.       ^ <primitive 181 13 msg t 'YES|NO'>
  84. |
  85.    getUserChoice: msg title: t choices: bstr
  86.       ^ <primitive 181 13 msg t bstr>
  87. |
  88.    changeWindowSize: deltaPt
  89.       <primitive 181 6 'SetWindowSize' (deltaPt x) (deltaPt y) windowTitle>
  90. |
  91.    getOrigin
  92.       leftEdge <- <primitive 181 2 0 windowTitle>.
  93.       topEdge  <- <primitive 181 2 1 windowTitle>.
  94.       ^ leftEdge @ topEdge
  95. |
  96.    getWindowSize
  97.       width  <- <primitive 181 2 2 windowTitle>.
  98.       height <- <primitive 181 2 3 windowTitle>.
  99.       ^ width @ height
  100. |
  101.    getWindowPens
  102.       detailPen <- <primitive 181 2 4 windowTitle>.
  103.       blockPen  <- <primitive 181 2 5 windowTitle>.
  104.       ^ detailPen @ blockPen
  105. |
  106.    getFlags
  107.       ^ flags <- <primitive 181 2 6 windowTitle>
  108. |
  109.    getIDCMPFlags
  110.       ^ iDCMPFlags <- <primitive 181 2 7 windowTitle>
  111. |
  112.    beginRefresh
  113.       <primitive 181 4 'BeginRefresh' windowTitle>
  114. |
  115.    endRefresh
  116.       <primitive 181 4 'EndRefresh' windowTitle>
  117. |     
  118.    remakeDisplay
  119.       <primitive 181 4 'RemakeDisplay' windowTitle>
  120. |     
  121.    rethinkDisplay
  122.       <primitive 181 4 'RethinkDisplay' windowTitle>
  123. |
  124.    setWindowOrigin: newPoint ! x y !
  125.       x <- newPoint x.
  126.       y <- newPoint y.
  127.       <primitive 181 3 0 x windowTitle>.
  128.       <primitive 181 3 1 y windowTitle>.
  129.       leftEdge <- x.
  130.       topEdge  <- y
  131. |
  132.    setWindowSize: sizePoint ! w h !
  133.       w <- sizePoint x.
  134.       h <- sizePoint y.
  135.       <primitive 181 3 2 w windowTitle>.
  136.       <primitive 181 3 3 h windowTitle>.
  137.       width  <- w.
  138.       height <- h
  139. |
  140.    setWindowPens: newPensPoint ! fp bp !
  141.       fp <- newPensPoint x.
  142.       bp <- newPensPoint y.
  143.       <primitive 181 3 4 fp windowTitle>.
  144.       <primitive 181 3 5 bp windowTitle>.
  145.       detailPen <- fp.
  146.       blockPen  <- bp
  147. |
  148.    setFlags: newFlags
  149.       <primitive 181 3 6 newFlags windowTitle>.
  150.       flags <- newFlags
  151. |
  152.    setIDCMPFlags: newIDCMP
  153.       <primitive 181 3 7 newIDCMP windowTitle>.
  154.       iDCMPFlags <- newIDCMP
  155. |
  156.    setMinSize: newMinPoint ! minw minh !
  157.       minw <- newMinPoint x.
  158.       minh <- newMinPoint y.
  159.       <primitive 181 3 8 minw windowTitle>.
  160.       <primitive 181 3 9 minh windowTitle>.
  161.       minWidth  <- minw.
  162.       minHeight <- minh      
  163. |
  164.    setMaxSize: newMaxPoint ! maxw maxh !
  165.       maxw <- newMaxPoint x.
  166.       maxh <- newMaxPoint y.
  167.       <primitive 181 3 10 maxw windowTitle>.
  168.       <primitive 181 3 11 maxh windowTitle>.
  169.       maxWidth  <- maxw.
  170.       maxHeight <- maxh
  171. |
  172.    getReqCount
  173.       ^ reqCount <- <primitive 181 2 11 windowTitle>
  174. |
  175.    getPointerSize
  176.       ptrWidth  <- <primitive 181 2 12 windowTitle>.
  177.       ptrHeight <- <primitive 181 2 13 windowTitle>.
  178.       ^ ptrWidth @ ptrHeight
  179. |
  180.    setCheckMark: newCheckMark
  181.       <primitive 181 3 13 newCheckMark windowTitle>.
  182.       chkMark <- newCheckMark
  183. |
  184.    getWindowOffset
  185.       xOffset <- <primitive 181 2 14 windowTitle>.
  186.       yOffset <- <primitive 181 2 15 windowTitle>.
  187.       ^ xOffset @ yOffset
  188. |
  189.    setBitMap: newBitMap
  190.       <primitive 181 3 14 newBitMap windowTitle>.
  191.       bitMap <- newBitMap
  192. |
  193.    getTitle
  194.       ^ title <- <primitive 181 2 10 windowTitle>
  195. |      
  196.    changeTitle: newTitle             "This might be broken!!"
  197.       <primitive 181 12 windowTitle newTitle>.
  198.       windowTitle <- newTitle
  199. |
  200.    getScreenTitle
  201.       ^ screenTitle <- <primitive 181 2 16 windowTitle>
  202. |
  203.    new: newWindowTitle
  204.       windowTitle <- newWindowTitle.
  205.       ^ self
  206. |
  207.    openOnScreen: screenName
  208.       <primitive 181 1 screenName windowTitle>
  209. ]
  210.